home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Revista CD Expert 8
/
Revista CD Expert nº 08 CD1.iso
/
Utilitarios
/
Diversos
/
Coeli Stella 2000
/
_SETUP.1
/
Stella.exe
/
0
/
RCDATA
/
TDATETIMEFORM
/
TDATETIMEFORM.txt
Wrap
Text File
|
1999-03-13
|
7KB
|
384 lines
object DateTimeForm: TDateTimeForm
Left = 367
Top = 233
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Date and Time Entry'
ClientHeight = 279
ClientWidth = 338
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsStayOnTop
OnCreate = FormCreate
PixelsPerInch = 125
TextHeight = 16
object Panel1: TPanel
Left = 9
Top = 9
Width = 321
Height = 264
TabOrder = 0
object DatePanel: TPanel
Left = 9
Top = 9
Width = 304
Height = 144
BevelOuter = bvLowered
TabOrder = 0
object YearBox: TEdit
Left = 152
Top = 104
Width = 49
Height = 28
Font.Color = clBlack
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
MaxLength = 4
ParentFont = False
TabOrder = 0
Text = '1955'
end
object MonthBox: TComboBox
Left = 152
Top = 56
Width = 133
Height = 28
Style = csDropDownList
Font.Color = clBlack
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 20
Items.Strings = (
'January'
'February'
'March'
'April'
'May'
'June'
'July'
'August'
'September'
'October'
'November'
'December')
ParentFont = False
TabOrder = 1
end
object Daybox: TComboBox
Left = 152
Top = 16
Width = 57
Height = 28
Style = csDropDownList
Font.Color = clBlack
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 20
Items.Strings = (
'01'
'02'
'03'
'04'
'05'
'06'
'07'
'08'
'09'
'10'
'11'
'12'
'13'
'14'
'15'
'16'
'17'
'18'
'19'
'20'
'21'
'22'
'23'
'24'
'25'
'26'
'27'
'28'
'29'
'30'
'31')
ParentFont = False
TabOrder = 2
end
object YearLabel: TPanel
Left = 24
Top = 104
Width = 112
Height = 28
Alignment = taLeftJustify
BevelOuter = bvNone
Caption = 'Year:'
TabOrder = 3
end
object MonthLabel: TPanel
Left = 24
Top = 56
Width = 112
Height = 28
Alignment = taLeftJustify
BevelOuter = bvNone
Caption = 'Month:'
TabOrder = 4
end
object DayLabel: TPanel
Left = 24
Top = 16
Width = 112
Height = 28
Alignment = taLeftJustify
BevelOuter = bvNone
Caption = 'Day of month:'
TabOrder = 5
end
end
object TimePanel: TPanel
Left = 8
Top = 160
Width = 305
Height = 58
BevelOuter = bvLowered
TabOrder = 1
object Label3: TLabel
Left = 184
Top = 16
Width = 4
Height = 20
Caption = ':'
Font.Color = clBlack
Font.Height = -16
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 241
Top = 17
Width = 2
Height = 20
Caption = ':'
Font.Color = clBlack
Font.Height = -16
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
end
object HourBox: TComboBox
Left = 136
Top = 16
Width = 45
Height = 24
Style = csDropDownList
ItemHeight = 16
Items.Strings = (
'00'
'01'
'02'
'03'
'04'
'05'
'06'
'07'
'08'
'09'
'10'
'11'
'12'
'13'
'14'
'15'
'16'
'17'
'18'
'19'
'20'
'21'
'22'
'23')
TabOrder = 0
end
object MinuteBox: TComboBox
Left = 192
Top = 16
Width = 45
Height = 24
Style = csDropDownList
ItemHeight = 16
Items.Strings = (
'00'
'01'
'02'
'03'
'04'
'05'
'06'
'07'
'08'
'09'
'10'
'11'
'12'
'13'
'14'
'15'
'16'
'17'
'18'
'19'
'20'
'21'
'22'
'23'
'24'
'25'
'26'
'27'
'28'
'29'
'30'
'31'
'32'
'33'
'34'
'35'
'36'
'37'
'38'
'39'
'40'
'41'
'42'
'43'
'44'
'45'
'46'
'47'
'48'
'49'
'50'
'51'
'52'
'53'
'54'
'55'
'56'
'57'
'58'
'59')
TabOrder = 1
end
object TimeLabel: TPanel
Left = 8
Top = 16
Width = 112
Height = 28
Alignment = taLeftJustify
BevelOuter = bvNone
Caption = 'Time (24h format):'
TabOrder = 2
end
object SecondBox: TComboBox
Left = 248
Top = 16
Width = 45
Height = 24
Style = csDropDownList
ItemHeight = 16
Items.Strings = (
'00'
'01'
'02'
'03'
'04'
'05'
'06'
'07'
'08'
'09'
'10'
'11'
'12'
'13'
'14'
'15'
'16'
'17'
'18'
'19'
'20'
'21'
'22'
'23'
'24'
'25'
'26'
'27'
'28'
'29'
'30'
'31'
'32'
'33'
'34'
'35'
'36'
'37'
'38'
'39'
'40'
'41'
'42'
'43'
'44'
'45'
'46'
'47'
'48'
'49'
'50'
'51'
'52'
'53'
'54'
'55'
'56'
'57'
'58'
'59')
TabOrder = 3
end
end
object SetButton: TButton
Left = 9
Top = 224
Width = 136
Height = 31
Caption = '&Set'
TabOrder = 2
OnClick = SetButtonClick
end
object CancelBtn: TButton
Left = 176
Top = 224
Width = 139
Height = 31
Caption = '&Cancel'
TabOrder = 3
OnClick = CancelBtnClick
end
end
end